From 5d20eba6587bafb6c2020abc7c87e774a0218079 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Thu, 27 May 1993 05:38:12 +0000 Subject: [PATCH] * x-win.el: Check for a geometry resource, and apply it to the initial frame. --- lisp/term/x-win.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 84a09026618..06f7d375b74 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -521,6 +521,14 @@ This returns ARGS with the arguments that have been processed removed." (setq frame-creation-function 'x-create-frame-with-faces) +;; Apply a geometry resource to the initial frame. Put it at the end +;; of the alist, so that anything specified on the command line takes +;; precedence. +(let ((res-geometry (x-get-resource "geometry" "Geometry"))) + (if res-geometry + (setq initial-frame-alist (append initial-frame-alist + (x-parse-geometry res-geometry))))) + (defun x-win-suspend-error () (error "Suspending an emacs running under X makes no sense")) (add-hook 'suspend-hook 'x-win-suspend-error) -- 2.30.2